Option Explicit
Sub A_Sample034()
    Dim myRng1 As Range
    Dim myRng2 As Range
    Dim myRng3 As Range
    Set myRng1 = Range("A1")		'ѷӨӷ
    Set myRng2 = Range("B1")		'Nxs
    myRng1.Formula = "=B1+E3"		'NJѷӨӷ
    'ǳƨ즹
Set myRng3 = myRng2.Dependents
    MsgBox myRng3.Address
    Set myRng1 = Nothing		'
    Set myRng2 = Nothing
    Set myRng3 = Nothing
End Sub
